Multimedia Dogs/Multimedia Dogs v2.0.iso/mac/Multimedia Dogs 2.0/MMDOGS2.DXR/00280_Chapter handlers.ls

Text File | 1995-10-09 | 10.0 KB | 280 lines

global gCDvolume, gCPU, gMiscXObjName, gJumpMarker, gpChapterTextSprite, gpChapterMarker, gpChapterDatabase, gpChapterDatabaseCount, gpTopicsVideoDatabase, gpTopicsVideoDatabaseCount, gpChapterTitleCastnum, gpChapterTextNormalColor, gpChapterTextHiliteColor, gpChapterTextFlashColor, gpChapterTextPath, gpChapterVideoPath, gpLastString, gpLastOffset, gpChapterIndex

on initChapter
  initChapterDatabase()
  initTopicsVideoDatabase()
  set gpChapterIndex to 0
  set gpChapterTextSprite to 23
  set gpChapterMarker to "chapter"
  set gpChapterTitleCastnum to the number of cast "ChapterTitle"
  set gpChapterTextNormalColor to the foreColor of cast "ChapterNormalColor"
  set gpChapterTextHiliteColor to the foreColor of cast "ChapterHiliteColor"
  set gpChapterTextFlashColor to the foreColor of cast "ChapterFlashColor"
  set gpLastString to EMPTY
  set gpLastOffset to 0
  if gCPU = #mac then
    set gpChapterTextPath to gCDvolume & ":data:topics:text:"
    set gpChapterVideoPath to gCDvolume & ":data:topics:video:"
  else
    set gpChapterTextPath to gCDvolume & "\data\topics\text\"
    set gpChapterVideoPath to gCDvolume & "\data\topics\video\"
  end if
end

on initChapterDatabase
  set gpChapterDatabase to ["getting": "Choosing a Dog", "home": "Bringing Your Dog Home", "training": "Training & Obedience", "feeding": "Feeding & Nutrition", "grooming": "Grooming", "healthy": "Preventative Care", "illness": "Illnesses & Ailments", "medical": "Medical Treatment", "work": "Dogs at Work", "shows": "Dog Shows", "travel": "Travel & Boarding", "evolutio": "Evolution", "anatomy": "Anatomy", "behavior": "Behavior", "breeding": "Breeding"]
  set gpChapterDatabaseCount to count(gpChapterDatabase)
end

on initTopicsVideoDatabase
  set gpTopicsVideoDatabase to ["Advanced Obedience and Stunts": "stunts", "Animal Shelters": "shelter", "Brushing Your Dog": "brushing", "Canine Companions for Independence": "cci", "Cleaning the Eyes and Ears of a Dog": "eyesears", "Dogs as Police Assistants": "police", "Dogs Herding": "herding", "Dogs Hunting": "hunting", "Guide Dogs for the Blind": "guide", "High-Flying Dogs": "flying", "Land Rescue": "landresc", "Obedience": "obedienc", "Schutzhund": "schutz", "Sledding Activities": "sledding", "Teaching Your Dog to Come": "come", "Teaching Your Dog to Lie Down": "down", "Teaching Your Dog to Heel": "heel", "Teaching Your Dog to Sit": "sit", "Teaching Your Dog to Stay": "stay", "Water Rescue": "waterres", "Your Dog's Teeth": "teeth"]
  set gpTopicsVideoDatabaseCount to count(gpTopicsVideoDatabase)
end

on enterChapter
  setHelpContext("topics")
  setTopicsMarker(getChapterMarker())
  safePuppetSprite(gpChapterTextSprite, 1)
  setChapter(gpChapterIndex)
  set gpLastOffset to 0
end

on exitChapter
  puppetSprite(gpChapterTextSprite, 0)
end

on getChapterMarker
  return gpChapterMarker
end

on handleChapterSelection theSprite
  set theCode to the name of cast castNumOfSprite(theSprite)
  set gpChapterIndex to findPos(gpChapterDatabase, theCode)
  set gJumpMarker to getChapterMarker()
  go(the frame + 1)
end

on handleChapterNext
  if gpChapterIndex = gpChapterDatabaseCount then
    set gJumpMarker to getGlossaryMarker()
    set gpChapterIndex to gpChapterIndex + 1
    go(the frame + 1)
    exit
  end if
  if getTopicsMarker() = getTOCMarker() then
    set gJumpMarker to getChapterMarker()
    set gpChapterIndex to 1
    go(the frame + 1)
    exit
  end if
  set gpChapterIndex to gpChapterIndex + 1
  set gJumpMarker to getChapterMarker()
  go(the frame + 1)
end

on handleChapterPrev
  if gpChapterIndex = 1 then
    set gJumpMarker to getTOCMarker()
    go(the frame + 1)
    exit
  end if
  if getTopicsMarker() = getGlossaryMarker() then
    set gJumpMarker to getChapterMarker()
    set gpChapterIndex to gpChapterDatabaseCount
    go(the frame + 1)
    exit
  end if
  set gpChapterIndex to gpChapterIndex - 1
  set gJumpMarker to getChapterMarker()
  go(the frame + 1)
end

on setChapter theIndex
  set theFileCode to getPropAt(gpChapterDatabase, theIndex)
  set theCastnum to the number of cast (theFileCode & ".txt")
  set the castNum of sprite gpChapterTextSprite to theCastnum
  put EMPTY before char 1 of field theCastnum
  set theTitle to gpChapterIndex & "." && getaProp(gpChapterDatabase, theFileCode)
  set the text of cast gpChapterTitleCastnum to theTitle
end

on handleChapterSearch
  waitCursor()
  set theCastnum to castNumOfSprite(gpChapterTextSprite)
  set theText to the text of cast theCastnum
  set totalChars to length(theText)
  openXLib(gMiscXObjName)
  set dialog to MISC_X(mnew)
  pointerCursor()
  if not objectp(dialog) then
    alert("Sorry - Cannot create Search dialog.")
    return
  end if
  set theMsg to "Enter the word or phrase that you would like to find in this chapter."
  set searchString to dialog(mAsk, theMsg, gpLastString, "Find", "Cancel")
  updateStage()
  if searchString = "Cancel" then
    closeXLib(gMiscXObjName)
    exit
  end if
  autoWaitCursor()
  if searchString <> gpLastString then
    set gpLastString to searchString
    set gpLastOffset to 0
  end if
  set theOffset to offset(searchString, char gpLastOffset + 1 to totalChars of theText)
  if theOffset = 0 then
    set gpLastOffset to 0
    set theOffset to offset(searchString, char gpLastOffset + 1 to totalChars of theText)
    if theOffset = 0 then
      alert("Could not find" && QUOTE & searchString & QUOTE && "in this chapter.")
      dialog(mdispose)
      closeXLib(gMiscXObjName)
      exit
    end if
  end if
  set theOffset to gpLastOffset + theOffset
  set gpLastOffset to theOffset
  set thePoint to min(theOffset + 100, the number of chars in field theCastnum)
  put EMPTY before char thePoint of field theCastnum
  flashChunk(theCastnum, theOffset, theOffset + length(searchString) - 1, gpChapterTextFlashColor)
  dialog(mdispose)
  closeXLib(gMiscXObjName)
end

on flashChunk theCastnum, first, last, theColor
  set theHiliteColor to theColor
  set theNormalColor to the foreColor of char first of cast theCastnum
  repeat with i = 1 to 3
    set the foreColor of char first to last of cast theCastnum to theHiliteColor
    delayTicks(10)
    set the foreColor of char first to last of cast theCastnum to theNormalColor
  end repeat
end

on handleChapterVideoList
  set theString to EMPTY
  repeat with i = 1 to gpTopicsVideoDatabaseCount - 1
    set theString to theString & getPropAt(gpTopicsVideoDatabase, i) & RETURN
  end repeat
  set theString to theString & getPropAt(gpTopicsVideoDatabase, gpTopicsVideoDatabaseCount)
  set theCallback to "tell the stage to openChapterVideo(theIndex)"
  openSelectionMIAW(theString, "Select A Video", theCallback)
end

on handleChapterPrint
  set theAnswer to confirm("Would you like to print the text for this chapter?")
  if theAnswer = 0 then
    exit
  end if
  waitCursor()
  puppetSound("printing.aif")
  updateStage()
  set theTitle to the text of cast gpChapterTitleCastnum
  printText(the text of cast castNumOfSprite(gpChapterTextSprite), theTitle)
  pointerCursor()
end

on handleChapterHyperLink
  set theKey to extractKeyFromHyperLink()
  if voidp(theKey) then
    exit
  end if
  autoWaitCursor()
  closeAllMIAWs()
  set theIndex to findPos(gpTopicsVideoDatabase, theKey)
  if voidp(theIndex) then
    alert("Cannot find movie in the database:" && theKey)
    exit
  end if
  openChapterVideo(theIndex)
end

on openChapterVideo theIndex
  set theFileCode to getAt(gpTopicsVideoDatabase, theIndex)
  set theTitle to getPropAt(gpTopicsVideoDatabase, theIndex)
  set theFilename to gpChapterVideoPath & theFileCode & ".mov"
  openVideoMIAW(theFilename, theTitle)
end

on extractKeyFromHyperLink
  if the mouseWord = -1 then
    exit
  end if
  set theTextCast to the castNum of sprite the clickOn
  set theSelectColor to the foreColor of word the mouseWord of cast theTextCast
  putDebug("mouseWord =" && the mouseWord && word the mouseWord of the text of cast theTextCast)
  if theSelectColor <> gpChapterTextHiliteColor then
    exit
  end if
  set theIndex to the mouseChar
  set theChar to char theIndex of the text of cast theTextCast
  repeat while theChar <> "["
    set theIndex to theIndex - 1
    set theChar to char theIndex of the text of cast theTextCast
  end repeat
  set theKey to EMPTY
  set theIndex to theIndex + 17
  set theChar to char theIndex of the text of cast theTextCast
  repeat while theChar <> QUOTE
    set theKey to theKey & theChar
    set theIndex to theIndex + 1
    set theChar to char theIndex of the text of cast theTextCast
  end repeat
  putDebug("theKey =" && theKey)
  return theKey
end

on genTopicsText
  if the colorDepth <> 8 then
    alert("Color depth must be 8-bit to generate Topics text!")
    exit
  end if
  put "Generating Topics text..."
  initChapter()
  repeat with i = 1 to gpChapterDatabaseCount
    set theTopicCode to getPropAt(gpChapterDatabase, i)
    loadChapterText(theTopicCode)
    markChapterText(theTopicCode)
  end repeat
  put "Done."
  beep()
  alert("CHECK FOR EXTRA RETURNS AT END OF TEXT!!!")
end

on loadChapterText theTopicCode
  set theTextPath to "DogDisc:data:zsupport:text:"
  set theFilename to theTextPath & theTopicCode & ".txt"
  put "reading" && theFilename
  set file to FileIO(mnew, "read", theFilename)
  if not objectp(file) then
    alert("Cannot read file:" && theFilename)
    set the text of cast theTopicCode to " "
    exit
  end if
  set the text of cast (theTopicCode & ".txt") to file(mReadFile)
  updateStage()
end

on markChapterText theTopicCode
  put "marking" && theTopicCode
  set theCastName to theTopicCode & ".txt"
  set theText to the text of cast theCastName
  set totalChars to length(theText)
  set startString to "[Click here"
  set endString to "]"
  set theLastOffset to 0
  repeat while 1
    set theOffset to offset(startString, char theLastOffset + 1 to totalChars of theText)
    if theOffset = 0 then
      exit repeat
    end if
    set theOffset to theOffset + theLastOffset
    set theLastOffset to theOffset
    set theOffset to offset(endString, char theLastOffset + 1 to totalChars of theText)
    set theOffset to theOffset + theLastOffset
    set the foreColor of char theLastOffset to theOffset of cast theCastName to 5
    set theLastOffset to theOffset
  end repeat
end